/CropPath { 
[/cropURy /cropURx /cropLLy /cropLLx] { exch def } forall
cropLLx cropURy moveto
cropLLx cropLLy lineto
cropURx cropLLy lineto
cropURx cropURy lineto
closepath clip newpath
} bind def